Geτen hafta hat²rlayaca≡²n²z gibi DDE ba≡lant²lar²na de≡inmi■ ve Program Y÷neticisine ile DDE kurarak ona program grubu yaratt²rm²■t²k. Bu ay ba≡lant²m²z² Excel ile kuraca≡²z. Yapaca≡²m²z ■ey ExcelÆde bulunan "Kitap1"den bir dizi hⁿcrenin okunmas² ve bu hⁿcrelerin s²rayla VB ile yapt²≡²m²z bir "al²c²daki" ²zgara kontrolⁿne yerle■tirilmesi.
▌■lemi gerτekle■tirmek iτin ÷nce ExcelÆi aτ²n ve ■ekilde g÷rⁿldⁿ≡ⁿ gibi 5 sat²r ve 5 sⁿtunu istedi≡iniz bilgilerle donat²n. Sonra Exceli kapatmadan VBÆye geτin ve program² yaz²n. Yaln²z ingilizce Excel kullananlar "Excel|Kitap1" ifadesi yerine "Excel|Sheet11"
ifadesini kullanmal²d²rlar. Program² yazd²ktan sonra ba≡lant² iτin "Verileri Al" tu■una bas²n.
Private Sub Command1_Click()
Dim CurRow As String
Static Row ' Hesap tablosu sat²r numaras²
Static Col ' Hesap tablosu sⁿtun numaras²
' Aτ²k olan tⁿm ba≡lant²lar² kapat
Text1.LinkMode = 0
' Ba≡lant² kurulacak uygulama ve b÷lⁿmⁿ
Text1.LinkTopic = "Excel|Kitap1"
Text1.LinkItem = "R1C1" ' Ba≡lant² ÷≡esini belirle
Text1.LinkMode = 1 ' Ba≡lant² tipini otomatik yap
For Row = 1 To 5 ' Sat²r ve sutunu de≡i■tirmek
' iτin d÷ngⁿ
For Col = 1 To 5
'Okunacak hⁿcreyi belirle
CurRow = "R" & Row & "C" & Col
Grid1.Row = Row 'sat²r ve sⁿtunu belirle
Grid1.Col = Col
Text1.LinkItem = CurRow
Grid1.Text = Text1.Text
Next Col
Next Row
End Sub